#!/usr/bin/perl -w

use English;

sub mysub {
        my $myp = shift;
        my $myq = shift;

        return $myp + $myq;

}

$res = mysub 12,100;
print $res . "\n";
